90 ' THIS USED TO BE BIBLE QUIZ. WHEN I ADDED 50 QUESTIONS AND RE-ARRANGED THE LINES TO MAKE 75 INSTEAD OF 50 QUESTIONS IT WOULDN'T WORK, SO I RE-CODED THE PROGRAM. IT NOW WORKS PERFECTLY. ONLY IT DOESN'T USE THE INKEY$ STATEMENT. ENJOY...
100 CLS:KEY OFF
110 LOCATE 4,31:PRINT "**************"
120 LOCATE 5,31:PRINT "* PC-QUIZ *"
130 LOCATE 6,31:PRINT "*VERSION 2.00*"
140 LOCATE 7,31:PRINT "**************"
150 LOCATE 10,1
160 PRINT " PC-QUIZ IS A PUBLIC DOMAIN PROGRAM WRITTEN BY SHAWN PELTIER OF THE NEW "
170 PRINT "ORLEANS PERSONAL COMPUTER USERS GROUP, NOPC. THIS PROGRAM BEGAN AS BIBLE QUIZ."
180 PRINT "WHEN I ADDED 50 QUESTIONS TO MAKE IT PC-QUIZ AND CHANGED SEVERAL LINES, IT "
190 PRINT "WOULD NOT WORK. SO I JUST RE-CODED THE PROGRAM AND MADE AN ORIGINAL PROGRAM."
200 PRINT "THAT IS WHY IT RESEMBLES BIBLE QUIZ AND CONTAINS ALL OF BIBLE QUIZ'S QUESTIONS."
210 PRINT "YOU PROGRAMMERS WILL NOTICE I HAD TO AVOID USING TWO 'NEXT X' STATEMENTS BY "
220 PRINT "USING SOME INTENSE CALCULATIONS AND MAKING IT GO 'UNDER THE COVERAGE' AND USE"
230 PRINT "ONLY ONE 'NEXT X.' NOTICE ANY REMINDERS WHICH ARE IN THE LAST LINE OF YOUR"
240 PRINT "SCREEN!!! YOU MAY ADD YOUR OWN QUESTIONS, BUT ADD .01 TO THE VERSION AND PUT"
250 PRINT "YOUR NAME AT THE BOTTOM OF THIS SCREEN. THANK YOU,"
260 PRINT " SHAWN PELTIER"
270 INPUT "HIT ENTER TO CONTINUE...";ER$
280 CLS:LOCATE 25,5:PRINT "* * * * * ALL RESPONSES MUST BE IN UPPER CASE * * * * *"
290 PRINT" THIS GAME IS A QUIZ WHICH TESTS "
300 PRINT "YOUR KNOWLEDGE OF ALL TYPES OF TRIVIAL INFO"
310 PRINT "WHICH HAS TO DO WITH ANYTHING FROM COMPUTERS"
320 PRINT"TO... TO CHANGE THE QUESTIONS, CHANGE THE "
330 PRINT "DATA STATEMENTS. YOU MUST ENTER ALL"
340 PRINT "ANSWERS IN LOWER CASE BECAUSE THE COMPUTER DOES NOT"
350 PRINT "LOOK FOR LOWER-CASE ANSWERS TO SEE IF"
360 PRINT "THEY ARE CORRECT. THERE ARE 75 QUESTIONS"
370 PRINT "POSSIBLE FOR YOU TO ANSWER. THERE WILL"
380 PRINT "BE MORE IN UPDATES OF THIS PROGRAM. "
390 PRINT :PRINT :PRINT
400 PRINT "HOW MANY QUESTIONS DO YOU WISH TO TRY";CHR$(31);
410 INPUT N
420 IF N<76 AND N>0 THEN 450
430 IF N>75 OR N<1 THEN GOSUB 1510
440 GOTO 400
450 CLS
460 LOCATE 25,1:PRINT " * * * * * ALL RESPONSES MUST BE IN UPPER CASE * * * * *"
470 PRINT "YOU SHALL TRY";N;"QUESTIONS."
480 FOR X=1 TO N
490 PRINT :PRINT :PRINT :PRINT
500 Y=0
510 PRINT "PC-QUIZ QUESTION NUMBER";X
520 PRINT "--------------------------"
530 PRINT
540 READ QUESTION$
550 READ ANSWER$
560 PRINT QUESTION$
570 INPUT YOURS$
580 GOTO 600
590 NEXT X
600 IF YOURS$=ANSWER$ THEN GOSUB 710 ELSE Y=2
610 Y=Y+1:IF Y=1 THEN GOTO 590
620 BEEP:BEEP:BEEP:BEEP
630 PRINT "WRONG ANSWER!!! THE CORRECT ANSWER IS:"
640 PRINT TAB(10);ANSWER$
650 WRONG=WRONG+1
660 PRINT "PRESS [ENTER] TO CONTINUE..."
670 INPUT ER$
680 IF X<>N THEN 590
690 PRINT "THAT'S THE END OF THE GAME. YOU GOT";RIGHT;"RIGHT AND";WRONG;"WRONG."
700 END
710 PRINT "CORRECT!!! YOU GOT IT RIGHT!!!"
720 PRINT "THE ANSWER WAS ";ANSWER$
730 RIGHT=RIGHT+1
740 IF X=N THEN 690 ELSE 750
750 RETURN
760 DATA "HOW MUCH MONEY IS QUARTERBACK STEVE YOUNG'S CONTRACT WORTH (ROUND NUMBER)", "$40000000"
770 DATA "WHO SET FIRE TO THREE HUNDRED FOXES TAILS", "SAMSON"
780 DATA "WHAT HEBREW SERVED A QUICK LUNCH UNDER A TREE", "ABRAHAM"
790 DATA "WHAT HUNGRY MAN CURSED A FRUITLESS FIG TREE", "JESUS"
800 DATA "WHO KILLED HIS BROTHER FOR HUMBLING HIS SISTER", "ABSALOM"
810 DATA "WHO HAD THREE HUNDRED CONCUBINES", "SOLOMON"
820 DATA "WHAT BOY HAD A VARIEGATED COAT", "JOSEPH"
830 DATA "WHO HAD A SEAMLESS COAT", "JESUS"
840 DATA "WHO TOOK HIS SHOE TO BIND A CONTRACT", "BOAZ"
850 DATA "WHO SLEPT ON AN IRON BEDSTEAD OVER THIRTEEN FEET LONG", "OG"
860 DATA "WHO WEARS JERSEY NUMBER 46 FOR THE NEW ORLEANS SAINTS", "HOKIE GAJAN"
870 DATA "WHO WAS THE FIRST CITY-BUILDER", "CAIN"
880 DATA "WHAT PHYSICIAN WAS AN AUTHOR", "LUKE"
890 DATA "WHAT SONG COMPOSER IS CREDITED WITH 1005 SONGS", "SOLOMON"
900 DATA "WHO WAS THE FIRST PERSON KILLED", "ABEL"
910 DATA "WHO WAS BURIED IN A CAVE WITH HIS WIFE", "ABRAHAM"
920 DATA "WHO ACCIDENTALY HANGED HIMSELF IN A TREE", "ABSALOM"
930 DATA "WHAT BLIND MAN KILLED THREE THOUSAND PEOPLE AT A RELIGIOUS FEAST", "SAMSON"
940 DATA "WHAT WAS THE NAME OF THE FIRST CITY EVER BUILT", "ENOCH"
950 DATA "WHO WAS A MIGHTY HUNTER", "NIMROD"
960 DATA "WHAT WAS THE ROBOT'S FIRST NAME IN THE TV SERIES 'GET SMART'", "HYMIE"
970 DATA "WHO DROVE FURIOUSLY", "JEHU"
980 DATA "WHO WAS THE FIRST CHRISTIAN MARTYR", "STEPHEN"
990 DATA "WHO FELL ASLEEP DURING A LONG SERMON", "EUTYCHUS"
1000 DATA "WHAT CITY IS CALLED THE CITY OF PALM TREES", "JERICHO"
1010 DATA "WHO CLIMBED A TREE TO SEE JESUS", "ZACCHAEUS"
1020 DATA "WHO KILLED GOLIATH (EASY)", "DAVID"
1030 DATA "WHO WAS CAST INTO A DEN OF LIONS (ANOTHER EASY ONE!)", "DANIEL"
1040 DATA "WHAT LETTER DIDI HESTER PRINE HAVE TO WEAR ON HER DRESS", "A"
1050 DATA "HOW MANY STARS DOES A REAR ADMIRAL HAVE (DON'T SPELL!)", "2"
1060 DATA "WHAT WAS THE WINNER OF THE ACADEMY AWARD FOR THE BEST MOVIE IN 1968", "OLIVER"
1070 DATA "WHAT DID AUSTRIA, POLAND, AND RUSSIA CALL THEIR ASSOCIATION IN 1815", "THE HOLY ALLIANCE"
1080 DATA "WHO INVENTED THE FIRST COMPUTER", "CHARLES BABBAGE"
1090 DATA "WHO WAS PAUL BUNYAN'S BLUE OX", "BABE"
1100 DATA "HOW MANY BONES ARE IN THE HUMAN BODY", "206"
1110 DATA "WHO WAS BAMBI'S COUSIN", "GOBO"
1120 DATA "WHAT TV STATION IN NEW ORLEANS USES THE THEME 'DON'T STAY HOME WITHOUT US' (NUMBER ONLY!)", "38"
1130 DATA "WHO WAS GEORGE WASHINGTON'S VICE-PRESIDENT IN 1788", "JOHN ADAMS"
1140 DATA "WHO WAS GEORGE LEROY PARKER", "BUTCH CASSIDY"
1150 DATA "WHAT IS THE NAME OF THE APPOLO 10 LUNAR MODULE", "SNOOPY"
1160 DATA "HOW MANY DAUGHTERS DID KING LEAR HAVE", "3"
1170 DATA "WHAT IS THE NAME OF LONG JOHN SILVER'S PARROT", "CAPTAIN FLINT"
1180 DATA "WHAT WAS MAX BAER'S NICKNAME", "LIVERMORE LARRUPER"
1190 DATA "'STEPS IN TIME' IS THE AUTOBIOGRAPHY OF WHOM", "FRED ASTAIRE"
1200 DATA "WHAT WAS THE FIRST NAME OF THE BIONIC DOG", "MAX"
1210 DATA "WHAT IS THE NAME OF ALLEY OOP'S GIRLFRIEND", "OOLA"
1220 DATA "WHAT DO THE LETTERS 'BASIC' STAND FOR", "BEGINNERS ALL-PURPOSE SYMBOLIC INSTRUCTION CODE"
1230 DATA "WHO WAS THE FIRST CATCHER TO WEAR GLASSES", "CLINT COURTNEY"
1240 DATA "WHOSE NICKNAME IS 'TY IN THE SKY'", "TYRONE YOUNG"
1250 DATA "WHAT IS THE CODE NAME OF THE WORLD WAR II INVASION OF GREAT BRITAIN", "OPERATION SEA LION"
1260 DATA "WHAT PARTY WAS THE FIRST CONTINENTAL CONGRESS FORMED FROM", "BOSTON TEA PARTY"
1270 DATA "WHAT WAS THE FIRST NAME OF THE FEMALE GHOST IN THE TELEVISION SERIES 'TOPPER'", "MARION"
1280 DATA "IN WHAT YEAR DID THE WRIGHT BROTHERS FIRST FLY", "1903"
1290 DATA "WHAT ACT IN THE U.S. PROHIBITS FEDERAL EMPLOYEES FROM PARTICIPATING IN POLITICS", "THE HATCH ACT"
1300 DATA "WHO WAS THE FIRST MAN TO BREAK THE FOUR MINUTE MILE", "ROGER BANNISTER"
1310 DATA "WHO HAD THE FIRST SEX-CHANGE OPERATION", "CHRISTINE JORGENSEN"
1320 DATA "WHO CUT THE GORDIAN KNOT", "ALEXANDER THE GREAT"
1330 DATA "WHO BECAME A STAR AFTER THE 3RD RATE APPEARANCE IN THE 3RD RATE REMAKE OF THE MOVIE 'ONE MILLION YEARS B.C.'", "RAQUEL WELCH"
1340 DATA "WHO PLAYS MARATHON JOHN FOR MARATHON CANDY BAR COMMERCIALS", "PATRICK WAYNE"
1350 DATA "WHOSE WAS THE VOICE OF BUGS BUNNY", "MEL BLANC"
1360 DATA "WHAT EXPLORER FIRST DISCOVERED THE CIGAR", "COLUMBUS"
1370 DATA "WHAT DID DAVY CROCKETT NAME HIS RIFLE", "OL' BETSY"
1380 DATA "WHAT WAS LUCY'S LAST NAME IN 'I LOVE LUCY'", "RICARDO"
1390 DATA "WHAT IS THE FIRST NAME OF PERRY MASON'S SECRETARY", "DELLA"
1400 DATA "A FIREMAN'S WORKING UNIFORM IS CALLED HIS --------", "TURNOUTS"
1410 DATA "WHAT IS THE CUT OR INCISION MADE BY A SAW BLADE CALLED", "KERF"
1420 DATA "WHAT WAS THE LAST NAME OF THE WRITER OF 'SHIP OF FOOLS'", "PORTER"
1430 DATA "WHO IS BEAVER'S OLDER BROTHER", "WALLY"
1440 DATA "WHAT WAS THE TITLE OF BETTE DAVIS' AUTOBIOGRAPHY", "THE WIND AT MY BACK"
1450 DATA "NAME THE MOUNTIAN AT WHICH MOSES DIED", "MT. PISGAH"
1460 DATA "WHO INVENTED ROOT BEER", "CHARLES HIRES"
1470 DATA "WHO SCORED THE FIRST NEW ORLEANS BREAKER TOUCHDOWN (NOT BOSTON!!!)", "MARK SCHELLEEN"
1480 DATA "WHO SHOT PRESIDENT REAGAN DURING HIS 1980-1984 TERM AS PRESIDENT", "JOHN HINKLEY JR."
1490 DATA "WHO IS THE AUTHOR OF THIS PROGRAM","SHAWN PELTIER"
1500 DATA "WHAT IS THE NAME OF THIS PROGRAM", "PC-QUIZ"
1510 IF N>75 THEN LOCATE 25,5:PRINT "THERE ARE ONLY 75 QUESTIONS!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
1520 IF N<1 THEN LOCATE 25,5:PRINT "HOW IN THE HECK AM I SUPPOSED TO ASK YOU LESS THAN ONE QUESTIONS???"
(.txt)